#!/usr/bin/perl

foreach $file (@ARGV){
	if(open(FILE, "<$file")){
		$line = <FILE>;
		$line =~ s/\r?\n$//;
		if($line =~ m/^found:\s+([^\s]+)/){
			print("success.\n$1\n");
			exit(0);
		}
		close(FILE);
	}
}
print "none.\n";
exit(0);
